home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / tmac.sdkeep < prev    next >
Text File  |  1988-12-18  |  1KB  |  88 lines
  1. .    \"KS keep - for keep release features. As in IFM
  2. .de KS
  3. .nr KN \\n(.u
  4. .if \\n(IK=0 .if \\n(IF=0 .KQ
  5. .nr IK +1
  6. ..
  7. .    \"KQ - real keep processor
  8. .de KQ
  9. .br
  10. .nr KI \\n(.i
  11. .ev 2
  12. .br
  13. .in \\n(KIu
  14. .ps \\n(PS
  15. .if \\n(VS>40 .vs \\n(VSu
  16. .if \\n(VS<=39 .vs \\n(VSp
  17. .ll \\n(LLu
  18. .lt \\n(LTu
  19. .if \\n(NX>1 .ll \\n(CWu
  20. .if \\n(NX>1 .lt \\n(CWu
  21. .di KK
  22. .nr TB 0
  23. .nr KV 0
  24. ..
  25. .    \"KF - floating keep
  26. .de KF
  27. .nr KN \\n(.u
  28. .if !\\n(IK .FQ
  29. .nr IK +1
  30. ..
  31. .    \"FQ real floating keep processor
  32. .de FQ
  33. .nr KI \\n(.i
  34. .ev 2
  35. .br
  36. .in \\n(KIu
  37. .ps \\n(PS
  38. .if \\n(VS>40 .vs \\n(VSu
  39. .if \\n(VS<=39 .vs \\n(VSp
  40. .ll \\n(LLu
  41. .lt \\n(LTu
  42. .if \\n(NX>1 .ll \\n(CWu
  43. .if \\n(NX>1 .lt \\n(CWu
  44. .di KK
  45. .nr TB 1
  46. .nr KV 0
  47. ..
  48. .    \"KP - keep full page
  49. .de KP
  50. .nr KV 1
  51. ..
  52. .    \"KE release - everything between keep and release is together
  53. .de KE
  54. .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
  55. .if \\n(IK .nr IK -1
  56. ..
  57. .    \"RQ real release
  58. .de RQ
  59. .br
  60. .di
  61. .nr NF 0
  62. .if \\n(dn-\\n(.t .nr NF 1
  63. .if \\n(TC .nr NF 1
  64. .if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
  65. .if \\n(NF .if !\\n(TB .sp 11i
  66. .if !\\n(NF .if \\n(TB .nr TB 0
  67. .nf
  68. .rs
  69. .nr TC 5
  70. .in 0
  71. .ls 1
  72. .if \\n(TB=0 .ev
  73. .if \\n(TB=0 .br
  74. .if \\n(TB=0 .ev 2
  75. .if \\n(TB=0 .KK
  76. .ls
  77. .ce 0
  78. .if \\n(TB=0 .rm KK
  79. .if \\n(TB .da KJ
  80. .if \\n(TB \!.KD \\n(dn \\n(KV
  81. .if \\n(TB .KK
  82. .if \\n(TB .di
  83. .nr TC \\n(TB
  84. .if \\n(KN .fi
  85. .in
  86. .ev
  87. ..
  88.